#DECLARACAO DE ARQUIVOS
2 file text arq, arq2;
3 assign arq "arq_texto.dat";
#Detalhe: arq_texto.dat não precisa existir!

#REWRITE --> MODO DE ESCRITA!
7 REWRITE arq;
8 integer i = 15;
9 real r = 1.0;
10 string s;
11 s = "Str";

13 fwriteln arq "teste";
14 fwriteln arq i;
15 fwriteln arq r;
16 fwriteln arq s;

#VOCE PODE ESCREVER VARIAS
#DE UMA VEZ, INCLUSIVE STRINGS
20 fwriteln arq "Real: " r;
21 fwriteln arq "O valor de s eh: " s; 